   1 .
   2 .
   3 .
   4 .SHOOTING CRAPS!
   5 .BY L.L.CAMNITZ
  10 FC=75;BC=223
  20 clear 
  25 NT=0
  30 gosub 8000
  40 T=1
  50 G=1000;H=1000
  60 gosub 8500
  90 P=0
  91 A=rnd (6)
  92 B=rnd (6)
  95 gosub 9000
 100 if T=1goto 120
 110 if T=2goto 122
 120 if TR(1)=0goto 91
 121 goto 124
 122 if TR(2)=0goto 91
 124 clear 
 125 box -40,20,40,40,1
 130 if A=1gosub 1100
 140 if A=2gosub 1020;gosub 1070
 150 if A=3gosub 1020;gosub 1100;gosub 1070
 160 if A=4gosub 1020;gosub 1030;gosub 1060;gosub 1070
 170 if A=5gosub 1020;gosub 1030;gosub 1060;gosub 1070;gosub 1100
 180 if A=6gosub 1020;gosub 1030;gosub 1060;gosub 1070;gosub 1110;gosub 1120
 185 box 10,20,40,40,1
 190 if B=1gosub 1150
 200 if B=2gosub 1040;gosub 1090
 210 if B=3gosub 1040;gosub 1150;gosub 1090
 220 if B=4gosub 1040;gosub 1050;gosub 1080;gosub 1090
 230 if B=5gosub 1040;gosub 1050;gosub 1080;gosub 1090;gosub 1150
 240 if B=6gosub 1040;gosub 1050;gosub 1080;gosub 1090;gosub 1140;gosub 1130
 250 C=A+B
 260 goto 1500
1020 box -55,34,5,5,2
1025 return 
1030 box -26,34,5,5,2
1035 return 
1040 box -5,34,5,5,2
1045 return 
1050 box 24,34,5,5,2
1055 return 
1060 box -55,5,5,5,2
1065 return 
1070 box -26,5,5,5,2
1075 return 
1080 box -5,5,5,5,2
1085 return 
1090 box 24,5,5,5,2
1095 return 
1100 box -40,20,5,5,2
1105 return 
1110 box -55,20,5,5,2
1115 return 
1120 box -26,20,5,5,2
1125 return 
1130 box 24,20,5,5,2
1135 return 
1140 box -5,20,5,5,2
1145 return 
1150 box 10,20,5,5,2
1155 return 
1500 if C=Pgoto 5500
1510 if P>1goto 5020
2000 if C=2goto 3000
2010 if C=3goto 3000
2020 if C=12goto 3000
2030 if C=7goto 4000
2040 if C=11goto 4000
2050 goto 5000
3000 CY=-8
3010 print "   CRAPS! LOSE   ",W
3020 goto 6000
4000 CY=-8
4010 print "   NATURAL! WIN  ",W
4030 goto 6500
5000 P=C
5020 CY=-8
5030 if C=7print "   SEVEN! LOSE   ",W;goto 6000
5040 print "   POINT IS      ",P
5050 goto 91
5500 CY=-8
5510 print "   POINT MADE WIN",W
5520 goto 6500
6000 if T=1G=G-W;H=H+W
6010 if T=2H=H-W;G=G+W
6011 NT=25
6012 MU="6"
6013 MU="4"
6014 NT=0
6020 print "   SHOOTER #1    ",G
6030 print "   SHOOTER #2    ",H
6032 gosub 8000
6035 print "   BET IS        ",W
6040 if T=1goto 6100
6050 if T=2goto 6200
6100 T=2;goto 90
6200 T=1;goto 90
6500 if T=1G=G+W;H=H-W
6510 if T=2H=H+W;G=G-W
7000 print "   SHOOTER #1    ",G
7010 print "   SHOOTER #2    ",H
7020 gosub 8000
7030 print "   BET IS        ",W
7040 goto 90
8000 W=0
8010 N=rnd (5)
8020 if N=1W=50
8030 if N=2W=100
8040 if N=3W=150
8050 if N=4W=200
8060 if N=5W=250
8070 return 
8500 print ;print 
8510 print "     SHOOTING CRAPS!     "
8520 print ;print 
8530 print "   SHOOTER #1    ",G
8540 print 
8550 print "   SHOOTER #2    ",H
8560 print 
8570 print "   #1 BETS       ",W
8580 return 
9000 if G>1975goto 9100
9010 if H>1975goto 9100
9020 return 
9100 clear ;print ;print "   WINNER IS",T
9110 NT=8;CY=10
print "      305003405000       "
9130 NT=0;return 
:return ;run 